home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 106 - Proboard KEY Floppy - Must be in Drive 1.dsk / TOP.POSTS.MOD.txt < prev    next >
Text File  |  2019-02-17  |  3KB  |  123 lines
  1.   To: All
  2. From: Ian Cameron (#79)
  3. Date: Wed. Aug  9, 1989 @ 07:51:01
  4.  
  5. Does anyone have any Really good top Posters mods. To calculate the number of
  6. posts or bytes??. I tried a few but they did not work properly. I whould
  7. appreate if anyone could help.
  8.  
  9. [B5 #243 of 250] ? or Cmd [N]#
  10.  
  11.  Brd: Other Modules Q&A Board
  12. Numb: 244 of 250
  13.  Sub: Top Ten Posts
  14.   To: Ian Cameron
  15. From: Michael Faust (#684)
  16. Date: Wed. Aug  9, 1989 @ 11:01:48
  17.  
  18.  
  19.  
  20. ;----------------------------------------   <- Insert at login3
  21.  open #1,"b:char"
  22.  position #1,20,un
  23.  input #1,l1,ll:close
  24.  l2$=str$(ll)
  25.  if l1 l2$=str$(l1)+right$("000"+l2$,4)
  26. ;----------------------------------------
  27.  
  28. term2
  29.  close
  30.  open #1,"b:users":nibble(6)=nibble(6)+1:tc=tc+1
  31.  byte(1)=tc mod 256:nibble(1)=tc/256
  32.  byte(2)=bp mod 256:nibble(2)=bp/256
  33.  byte(3)=dl mod 256:nibble(3)=dl/256
  34.  byte(4)=ul mod 256:nibble(4)=ul/256
  35.  byte(5)=lr mod 256:byte(6)=lr/256
  36.  byte(10)=u1 mod 256:byte(11)=u1/256
  37.  byte(12)=u2 mod 256:byte(13)=u2/256
  38.  byte(14)=d1 mod 256:byte(15)=d1/256
  39.  byte(16)=d2 mod 256:byte(17)=d2/256
  40.  byte(0)=info(3):when$="x"
  41.  if flag(1) nibble(5)=5
  42.  if flag(2) nibble(5)=6
  43.  position #1,128,un
  44.  print #1,a1$,a2$\a3$\a4$,a5$
  45.  position #1,128,un,70
  46.  write #1,ram,58:close
  47. ;--------------------------------------
  48.  open #1,"b:char":position #1,20,un
  49.  print #1,l1,ll:close
  50. ;--------------------------------------
  51.  kill "h:batch"
  52.  f3=(bp*100)/tc:f4=(ul*100)/tc
  53.  open #1,"b:user.stats"
  54.  position #1,55,un
  55.  print #1,a3$,tc,f3,f4,lc$:close #1
  56.  
  57.          Add at beginning of term3
  58. ;-----------------------------------------------
  59.  close:clear#8
  60.  a=0:open #1,"b:top.chars"
  61.  for x=1 to 10:input #1,i$,a1,a2
  62.  if (a3$=i$) and (ll=a2) x=10:next:goto nowrite
  63.  if (l1>a1) and not(a) print #8,a3$,l1,ll:a=1:goto top1
  64.  if (l1=a1) and (ll>a2) and not(a) print #8,a3$,l1,ll:a=1
  65. top1
  66.  if a3$=i$ next:goto top2
  67.  print #8,i$,a1,a2:next
  68. top2
  69.  close:if not(a) goto nowrite
  70.  kill "b:top.chars":create "b:top.chars"
  71.  open #1,"b:top.chars":copy#8,#1:close:a=x
  72. nowrite
  73.  if not info(5)....
  74.  if c2>9999 then c2=0.....
  75. ...
  76. ...
  77. ...
  78. ;-------------------------------------------------
  79.  
  80.  public start <------
  81.  ..... goto start <--------- Change to goto start1
  82.  
  83.  
  84.   Will show top 10 posters when first going on the subs
  85.  
  86. ; *** bulletins / e-mail ***
  87. ;------------------------------------------------
  88. start1
  89.  on nocar goto link.term
  90.  print \\"Top 10 Writers (Bytes posted) as of "date$\
  91.  close:open #1,"b:top.chars"
  92.  for x=1 to 10:input #1,i$,a1,a2
  93.  a$=str$(a2):if a1 a$=str$(a1)+right$("000"+str$(a2),4)
  94.  print x"."left$(i$+"....................",20)"  "a$" Bytes"
  95.  next:close:print \\"Hit [ Return ]":get i$
  96. ;-----------------------------------------------------------
  97. start
  98.  gosub idinf
  99.  if lz=1 lz=0:a=val(i$):goto qscan
  100.  if bf$="" print \"That board is down right now.":return
  101.  if not b1 print \"You do not have access to that board.":return
  102.  if i$="Q" gosub qscan
  103. cmd1
  104.  
  105. Add this area (stuff between the -----) at the end where it saves the message
  106. before the return statement
  107.  
  108. post6
  109.  copy #8,#6:msg(a)=mn:mn=mn+1:update:tm=tm+1
  110.  print ".saved":ti$="":a$=""
  111.  print "THANKS for posting!"
  112.  print "It contains "edit(2)" characters.."
  113. ;---------------------------------------------------
  114.  ll=ll+edit(2):if ll>9999 then ll=ll-10000:l1=l1+1
  115.  l2$=str$(ll)
  116.  if l1 l2$=str$(l1)+right$("000"+l2$,4)
  117.  print "Total characters posted: "l2$" Thanks!"
  118. ;---------------------------------------------------
  119.  return
  120.  
  121. Mike..
  122.  
  123.